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-- file SymDefs.Mesa 

-- last modified by Satterthwaite, July 10, 1978 4:08 PM 

DIRECTORY 

AltoDefs: FROM "altodefs", 
BcdDefs: FROM "bcddefs", 
TableDefs: FROM "tabledefs"; 

SymDefs: DEFINITIONS - 
BEGIN 

VersionID; CARDINAL » 04118; 

-- hash table declarations 

HVLength: PRIVATE CARDINAL « 71; 
HVIndex: TYPE « CARDINAL [0 . .HVLength) ; 

HTRecord: TYPE « RECORD [ 

anylnternal , anyPublic: BOOLEAN, 
link: HTIndex, 
sslndex: CARDINAL]; 

HTIndex: TYPE « CARDINAL [0 . .TableDefs .TableLimit/2) ; 

HTNull: HTIndex - FIRST[HTIndex] ; 

-- semantic entry table declarations 

TypeClass: TYPE = { 
mode, 
basic, 
enumerated, 
record, 
pointer, 
array, 
arraydesc, 
transfer, 
definition, 
union, 
relative, 
subrange, 
long, 
real , 
nil 

}; 

TransferMode: TYPE = {procedure, port, signal, error, process, program, none}; 

SERecord: TYPE = RECORD [ 
marks, mark4: BOOLEAN, 
sebody: SELECT setag: * FROM 
id -> [ 

extended: BOOLEAN, 
public: BOOLEAN, 
ctxnum: CTXIndex, 
writeonce, constant: BOOLEAN, 
idtype: SEIndex, 
idinfo: UNSPECIFIED, 
idvalue: UNSPECIFIED, 
htptr: HTIndex, 
linkSpace: BOOLEAN, 
ctxlink: SELECT linktag: ♦ FROM 
terminal «> NULL, 
sequential => NULL, 
linked «> [link: ISEIndex], 
ENDCASE], 
constructor «> [ 

typeinfo: SELECT typetag: TypeClass FROM 
mode -> NULL, 
basic «> [ 

ordered: BOOLEAN, 
code: [0. .16) , 
length: CARDINAL], 
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enumerated ■> [ 

ordered: BOOLEAN, 

valuectx: CTXIndex, 

nvalues: CARDINAL], 
record »> [ 

machineDep: BOOLEAN, 

monitored: BOOLEAN, 

unifield, argument: BOOLEAN, 

defauUFields: BOOLEAN. 

comparable: BOOLEAN, 

privatePields: BOOLEAN, 

lengthUsed: BOOLEAN, 

length: CARDINAL, 

fieldctx: CTXIndex, 

variant: BOOLEAN, 

linkpart: SELECT linktag: * FROM 
notlinked «> NULL, 
linked »> [linktype: SEIndex], 
ENDCASE], 
pointer «> [ 

ordered, readonly, basing: BOOLEAN, 

dereferenced: BOOLEAN, 

pointedtotype: SEIndex], 
array => [ 

packed: BOOLEAN, 

comparable: BOOLEAN, 

lengthUsed: BOOLEAN, 

indextype: SEIndex, 

componenttype: SEIndex], 
arraydesc »> [describedType : SEIndex], 
transfer «> [ 

mode: TransferMode, 

inrecord, outrecord: recordCSEIndex] , 
definition ■> [ 

nGfi: [1 ,. 4], 

defCtx: CTXIndex], 
union »> [ 

equalLengths: BOOLEAN, 

casectx: CTXIndex, 

overlayed, controlled: BOOLEAN, 

tagsei: ISEIndex], 
relative ■> [ 

baseType: SEIndex, 

offsetType: SEIndex, 

resultType: SEIndex], 
subrange »> [ 

filled, empty, flexible: BOOLEAN, 

rangetype: SEIndex. 

origin: INTEGER, 

range: CARDINAL], 
long, real «> [rangetype: SEIndex], 
nil => NULL. 
ENDCASE]. 
ENDCASE]; 

SEIndex: TYPE « POINTER [0 . .TableDef s . TableLimi t) TO SERecord; 

ISEIndex: TYPE = POINTER [0 .. TableDef s . TableLimit) TO id SERecord; 
CSEIndex: TYPE = POINTER [0 .. Tab! eDefs . TableLimit) TO constructor SERecord; 

recordCSEIndex: TYPE = POINTER [0 . .TableDef s . TableL imit) TO record constructor SERecord; 

arrayCSEIndex: TYPE » POINTER [0 . .TableDef s .TableLimit) TO array constructor SERecord; 

SENull: SEIndex « FIRST[SEIndex] ; 

ISENull: ISEIndex = LOOPHOLE[SENul 1 ] ; 
CSENull: CSEIndex «= LOOPHOLE[SENun ] ; 

recordCSENull : recordCSEIndex = LOOPHOLE[SENun ] ; 
arrayCSENull : arrayCSEIndex « LOOPHOLE[SENul 1 ] ; 

-- the following two values are guaranteed by the compiler 
typeTYPE: CSEIndex - FIRST[CSEIndex] + SIZE[nil constructor SERecord]; 
typeANY: CSEIndex - typeTYPE + SIZE[mode constructor SERecord]; 

-- codes identifying the basic types (extensible) 
codeANY: CARDINAL - 0; 

codelNTEGER: CARDINAL « 1; 

codeBOOLEAN: CARDINAL « 2; 
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codeCHARACTER: CARDINAL - 3; 

BitAddress: TYPE « RECORD[ 

wd: [0. .AltoDefs.VMLimit/AHoDefs.wordlength] , -- word displacement 
bd: [0. .AHoDefs.wordlength)]; -- bit displacement 

-- context table declarations 

MaxContextLevel : CARDINAL ■ 7; 

ContextLevel : TYPE » [0. .MaxContextLevel ] ; 

IZ: ContextLevel =» 0; -- context level of non-frame records 

IG: ContextLevel » 1; -- context level of global frame 

IL: ContextLevel « lG+1; -- context level of outer procedures 

CTXRecord: TYPE - RECORD [ 
sn: Sn, — for DeSoto 
selist: ISEIndex, 
ctxlevel: ContextLevel, 
extension: SELECT ctxType: * FROM 

simple «> [ctxNew: CTXIndex], -- for DeSoto 
included ■> [ 

ctxchain: includedCTXIndex, 
ctxmodule: MOIndex, 
ctxmap: CTXIndex, 

ctxclosed, ctxcomplete, restricted: BOOLEAN, 
ctxreset: BOOLEAN], 
imported «> [includeLink: includedCTXIndex], 
nil «> NULL, 
ENDCASE]; 

CTXIndex: TYPE = ORDERED POINTER [0..3777B] TO CTXRecord; 
includedCTXIndex: TYPE - ORDERED POINTER [0..3777B] TO included CTXRecord; 

CTXNull: CTXIndex « FIRST[CTXIndex] ; 

includedCTXNull: includedCTXIndex « LOOPHOLE[CTXNul 1] ; 

-- module table declarations 

Filelndex: TYPE « [0..77777B]; -- internal file handle 
null Filelndex: Filelndex « LAST[FileIndex]; 

MDRecord: TYPE « RECORD [ 

mdhti: HTIndex, -- hash entry for file name 

mdctx: includedCTXIndex, -- context of copied entries 

mdshared: BOOLEAN, -- overrides PRIVATE, etc. 

mdExported: BOOLEAN, 

mdStamp: BcdDef s . VersionStamp , 

mdFile: Filelndex]; -- associated file 

MDIndex: TYPE - ORDERED POINTER [0 . . TableDef s . TableLimi t) TO MDRecord; 
MDNull: MDIndex » LAST[MDIndex]; 

OwnMdi: MDIndex = FIRST[MDIndex]; 

-- body table declarations 

BodyLink: TYPE = RECORD [which: {sibling, parent}, index: BTIndex]; 

BodyRecord: TYPE « RECORD [ 
link: BodyLink, 
firstSon: BTIndex, 
localCtx: CTXIndex, 
level : ContextLevel , 
info: Bodylnfo, 

extension: SELECT kind: * FROM 
Callable -> [ 

id: ISEIndex, 

ioType: SEIndex, 

monitored, stopping: BOOLEAN, 

entrylndex: [0..128), 

entry, internal: BOOLEAN. 

closure: SELECT nesting: * FROM 
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Outer »> NULL, 

Inner «> [f rameOff set: [0. . AltoDef s.VMLimit]] , 

ENDCASE], 
Other «> NULL, 
ENDCASE]; 

Boclylnfo: TYPE » RECORD [ 
SELECT mark: ♦ FROM 
Internal «> [ 

bodyTree: --Treelndex-- POINTER [0. .TableDef s .TableLimit) . 

sourcelndex: CARDINAL, 

stOrigin: --LitDef s.STIndex-- POINTER [0. .TableDefs.Tab1eLimit/2) . 

frameSize: [0..4096)], 
External «> [ 

origin: [0. .AltoDef s.VMLimit/2], 

bytes: CARDINAL, 

startlndex, indexLength: CARDINAL], 
ENDCASE]; 

BTIndex: TYPE » POINTER [0 . .TableDef s .TableLimit) TO BodyRecord; 

CBTIndex: TYPE » POINTER [0 . .TableDef s . TableLimit) TO Callable BodyRecord; 

ICBTIndex: TYPE « POINTER [0 . .TableDef s .TableLimit) TO Inner Callable BodyRecord; 
OCBTIndex: TYPE « POINTER [0. .Tabl eDefs .TableLimit) TO Outer Callable BodyRecord; 
BTNull: BTIndex « LAST[BTIndex] ; 

CBTNull: CBTIndex » LOOPHOLE[BTNun] ; 

-- definitions for use by DeSoto 
Sn: TYPE » {snNil, snValid, sninvalid, snindirect}; 

-- allocation codes for table components 

setype: TableDef s.TableSelector « 1; 
httype: TableDef s.TableSelector » 2; 
sstype: TableDef s . TableSelector » 3; 
ctxtype: TableDef s .TableSelector » 4; 
mdtype: TableDef s . TableSelector « 5; 
bodytype: TableDef s.TableSelector ■ 6; 

-- symbol segment headers 

WordOffset: TYPE « CARDINAL; 

BlockDescriptor: TYPE = RECORD [offset: WordOffset, size: CARDINAL]; 

STHeader: TYPE = RECORD [ 
versionldent: CARDINAL, 
version: BcdDef s . VersionStamp , 
sourceVersion : BcdDef s .VersionStamp. 
creator: BcdDef s. VersionStamp, 
definitionsFile: BOOLEAN, 

directoryCtx, importCtx, outerCtx: CTXIndex, 
hvBlock: BlockDescriptor, 
htBlock: BlockDescriptor, 
ssBlock: BlockDescriptor, 
seBlock: BlockDescriptor, 
ctxBlock: BlockDescriptor, 
mdBlock: BlockDescriptor, 
bodyBlock: BlockDescriptor, 
extBlock: BlockDescriptor, 
treeBlock: BlockDescriptor, 
litBlock: BlockDescriptor, 
fgRelPgBase: CARDINAL, 
fgPgCount: Al toDefs . PageCount] ; 

"-" fine grain table header 

fgMeader: TYPE « RECORD [ 
fgoffset: WordOffset, 
fglength: CARDINAL, 
sourcefile: StringBody -- text follows --]; 

~~ fine grain table declarations 
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Bytelndex: TYPE - CARDINAL; 



FGTEntry: TYPE - RECORD [ 

findex: Bytelndex, 

cindex: Bytelndex]; 

END. 



